Imports System.Data.OleDb
Imports System.Data.OracleClient

Namespace persistent

    Public Class myDBConn2
        'Const ConnStr As String = "DATA SOURCE=BSPR;USER ID=billintra;PASSWORD=billingnet2005;"
        Const ConnStr As String = "DATA SOURCE=BSPT2;USER ID=sysadm;PASSWORD=sysadm;"

        Public Shared Function myOraResult2(ByVal SQL As String) As ArrayList  'OracleDataReader
            Dim cn As OracleConnection
            Dim dbcmd As OracleCommand
            Dim reader As OracleDataReader
            Dim dsTemp As DataSet
            Dim dsCmd As OracleDataAdapter
            Dim list As ArrayList

            cn = New OracleConnection(ConnStr)
            cn.Open()

            dbcmd = cn.CreateCommand
            dbcmd.CommandText = SQL
            reader = dbcmd.ExecuteReader(CommandBehavior.CloseConnection)
            Dim lst As New ArrayList
            lst.Add(reader)


            Return lst

        End Function

    End Class

End Namespace